home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / example11.4 < prev    next >
Text File  |  2007-02-28  |  796b  |  29 lines
  1. 0010 PRINT "TV REPAIR SIMULATION"
  2. 0020 DIM ARR(20), SER(20), ENT(20), COMP(20)
  3. 0030 ARR(1):=-40*LOG(RND(1))
  4. 0040 FOR JOB:=2 TO 20 DO
  5. 0050 INTER:=-40*LOG(RND(1))
  6. 0060 ARR(JOB):=ARR(JOB-1)+INTER
  7. 0070 ENDFOR JOB
  8. 0080 FOR JOB:=1 TO 20 DO
  9. 0090 SER(JOB):=-30*LOG(RND(1))
  10. 0100 ENDFOR JOB
  11. 0110 ENT(1):=ARR(1); COMP(1):=ENT(1)+SER(1)
  12. 0120 FOR JOB:=2 TO 20 DO
  13. 0130 IF ARR(JOB)>COMP(JOB-1) THEN
  14. 0140 ENT(JOB):=ARR(JOB)
  15. 0150 ELSE 
  16. 0160 ENT(JOB):=COMP(JOB-1)
  17. 0170 ENDIF 
  18. 0180 COMP(JOB):=ENT(JOB)+SER(JOB)
  19. 0190 ENDFOR JOB
  20. 0200 ZONE 8
  21. 0210 PRINT "JOB   ARRIVAL SERVICE ENTRY  COMPLETION"
  22. 0220 FOR JOB:=1 TO 20 DO
  23. 0230 ARR(JOB):=INT(ARR(JOB)+.5)
  24. 0240 SER(JOB):=INT(SER(JOB)+.5)
  25. 0250 ENT(JOB):=INT(ENT(JOB)+.5)
  26. 0260 COMP(JOB):=INT(COMP(JOB)+.5)
  27. 0270 PRINT JOB,ARR(JOB),SER(JOB),ENT(JOB),COMP(JOB)
  28. 0280 ENDFOR JOB
  29.